﻿// Learn more about F# at http://fsharp.net
module Core

open MathNet.Numerics
open MathNet.Numerics.FSharp
open MathNet.Numerics.LinearAlgebra.Double

let distance (x:DenseVector) (w:DenseVector) = x * w

let margin xi yi w = (distance xi w) * yi

let compute_points (points:(DenseVector * int ref * float) array) =
  match points with
    | [||] -> true
    | a -> 
      let a,b,c = points.[0]
      in true